function exportResults(Data_Summary)

% load ds ('data set') and ap ('analysis parameters')
[ds, ap] = getdsap;



fina = fieldnames(Data_Summary)

r = structfun(@isScalarLike, Data_Summary(1));
Data_Summary = rmfield(Data_Summary, fina(~r))



function tf = isScalarLike(item)
tf = false;

% if item is a cell with one element, unwrap that element
if iscell(item) && numel(item) <= 1 
    item = item{1};
end
if ischar(item) || (isstring(item) && numel(item) <= 1)
    tf = true;
end
if isnumeric(item) && numel(item) <= 1
    tf = true;
end